gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGclass.asp
<!-- #INCLUDE FILE="login.asp" -->
<%
'///******************************************************************
' 广告位/分类总管理 文件名：GGclass.asp 参数：action 为 不同的功能标示
'******************************************************************///
''' 权限判断
if isnumeric(trim(request("cid"))) then
Call AdminQx(3,trim(request("cid")))
end if
'''
action=trim(request.querystring("action"))
select case action
case "del"
dqw="已有分类和广告位"
Call Heads_GGclass(dqw)
call GGclassdel()
case "addc"
Call AdminQx(3,"all")
dqw="新增广告分类"
Call Heads_GGclass(dqw)
call GGclassNew()
case "adds"
dqw="新增广告位"
Call Heads_GGclass(dqw)
call GGweiNew()
case "editc"
dqw="修改广告分类"
Call Heads_GGclass(dqw)
call GGclassEdit()
case "edits"
Call AdminQx(3,GgPlaceflid(trim(request("pid"))))
dqw="修改广告位属性"&" [<a href='GGplaceCss.asp?pid="&trim(request("pid"))&"'>编辑样式</a> -- <a href=javascript:opw('GGplaceCz.asp?a=Yl&id="&trim(request("pid"))&"','ZonGG',800,600)>当前效果</a>]"
Call Heads_GGclass(dqw)
call GGweiEdit()
case "by"
Call AdminQx(3,"all")
dqw="备用广告位"
Call Heads_GGclass(dqw)
call GGclassMain()
case else
dqw="已有分类和广告位"
if isnumeric(trim(request("cid"))) then dqw=dqw&" >> 仅显示分类 "&Ggflm(trim(request("cid")))
Call Heads_GGclass(dqw)
call GGclassMain()
end select
%>
<%
'/********************************************************************
' GGclassMain() 广告分类和广告位综合列表
'********************************************************************/
sub GGclassMain()
%>
<table border=0 cellspacing=0 cellpadding=0 width=100%>
<tr>
<%if trim(request("action"))="by" then %>
<td valign="top" width="160">
<table border=1 width=100% cellspacing=0 cellpadding=2 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF bgcolor=#ffffff>
<tr align=center bgcolor=#F7F7F7 height=30><td class=red>说明:备用广告位的产生</td></tr>
<tr><td style="color: #808080" bgcolor="#FDFDFD"><br>
删除广分类时 保留了广告位<br><br>
低版本升级时 保留的广告位<br><br>
广告位的显示不受备用影响<br><br>
</td></tr>
</table></td><td width=20></td>
<%end if%>
<td valign="top">
<table border=1 cellspacing=0 cellpadding=2 <%if trim(request("action"))<>"by" then response.write " width='568' align=center"%> bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF bgcolor=#ffffff>
<%
dim sql2,rs2,cid,pid
if trim(request("action"))<>"by" then
sqladd=""
if isnumeric(trim(request("cid"))) then sqladd=" where Cid ="&Cint(trim(request("cid")))
sql="select Cid,Cname from class "&sqladd&" order by cid"
set rs=conn.execute(sql)
do while not rs.eof
cid=rs(0)
If AdminClassIfkg(cid)="yes" then '' 只有当该分类有权被当前管理员可管时才显示
%>
<tr align=center height=30 bgcolor=#F7F7F7><td width=60 align=center><font class=red>广告位ID</font></td><td align=left width=320>分类[<font class=red><%=rs(0)%></font>] <b><a href='?cid=<%=cid%>' title='仅显示该分类'><%=rs(1)%></a></b></td>
<td width=280>
<a href='?action=adds&cid=<%=cid%>' title='在该分类下新增广告位'>新增广告位</a> <a href='?action=editc&cid=<%=cid%>'>属性</a> <a href="GGclassQl.asp?cid=<%=cid%>">清理</a> </td></tr>
<% sql2="select Pid,Pname from place where cid="&cid
set rs2=conn.execute(sql2)
do while not rs2.eof
pid=rs2(0)
%>
<tr align=center height=20><td width=60><font class=red><b><%=rs2(0)%></b></font></td><td align=left> <a href='?action=edits&pid=<%=pid%>' title='修改'><%=rs2(1)%></a></td>
<td width=280><a href="javascript:opw('GGplaceCz.asp?a=Yl&id=<%=pid%>','ZonGG',800,600)">预览</a> <a href="javascript:opw('GGplaceCz.asp?a=JS&id=<%=pid%>','ZonGG',800,600)" title="调用代码" >代码</a> <a title="生成JS文件" href="GGjssc.asp?a=yes&pid=<%=pid%>">JS</a> <a href='?action=edits&pid=<%=pid%>'>属性</a> <a href="GGplaceCss.asp?pid=<%=pid%>">样式</a> <a href="GGtiao.asp?pid=<%=pid%>">广告条</a> <a href="GGplaceQl.asp?pid=<%=pid%>">清理</a></td></tr>
<% rs2.movenext
loop
rs2.close
End If
rs.movenext
loop
rs.close:set rs=nothing
end if
if AdminClassIfkg(0)="yes" then '' 只有当该分类有权被当前管理员可管时才显示
if isnumeric(trim(request("cid")))=false then
%>
<tr align=center height=30 bgcolor=#F7F7F7><td width=60 align=center><font class=red>广告位ID</font></td><td align=left width=320>分类[<font class=red>0</font>] <b><a href='?action=by' title='打开备用箱'>备用箱</a></b></td>
<td width=280>
--</td></tr>
<% sql2="select Pid,Pname from place where cid=0"
set rs2=conn.execute(sql2)
do while not rs2.eof
pid=rs2(0)
%>
<tr align=center height=20><td width=60><font class=red><b><%=rs2(0)%></b></font></td><td align=left> <a href='?action=edits&pid=<%=pid%>' title='修改'><%=rs2(1)%></a></td>
<td width=280><a href="javascript:opw('GGplaceCz.asp?a=Yl&id=<%=pid%>','ZonGG',800,600)">预览</a> <a href='?action=edits&pid=<%=pid%>'>属性</a> <a href="GGplaceCss.asp?pid=<%=pid%>">样式</a> <a href="GGtiao.asp?pid=<%=pid%>">广告条</a> <a href="GGplaceQl.asp?pid=<%=pid%>">清理</a></td></tr>
<% rs2.movenext
loop
rs2.close
End if
End if
%>
<tr><td height=60 colspan=3 class="td1">
<font class=red><b>注:</b></font>
<font class=red>1、</font>在广告位内添加广告条后，该广告位才有效；
<font class=red>2、</font>“属性”用于修改对应分类或广告位的基本信息，“样式”用于设置对应广告位的显示效果，“广告条”用于设置对应广告位显示的广告条；
<font class=red>3、</font>红色粗体数字为对应广告位的<b>广告位ID</b>；
<font class=red>4、</font>点击“清理”后，进入相应信息清理页。
</td></tr></table>
</td></tr></table>
<%
end sub
'/********************************************************************
' GGclassEdit() 修改分类信息
'********************************************************************/
sub GGclassEdit()
dim c_name,cid
cid=trim(request.querystring("cid"))
if not(isnumeric(cid)) then call gg_main():exit sub
sql="select cname from class where cid="&cid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
rs.close:set rs=nothing
call gg_main():exit sub
end if
%>
<table border=1 width=450 cellspacing=0 cellpadding=2 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF>
<%
if trim(request.querystring("edit"))="ok" then
response.write "<tr><td height=100 align=center>"
c_name=replace(trim(request.form("c_name")),"'","")
if len(c_name)<2 or len(c_name)>16 then
response.write "<font class=red_2>广告分类名称长度不可大于16或小于2！</font><br><br>"&go_back
else
rs("cname")=c_name
rs.update
response.write "<font class=red_3>修改广告分类成功！</font><br><br><a href='?nsort="&nsort&"'>点击返回</a>"
end if
response.write "</td></tr>"
else
%><form action='?nsort=<% response.write nsort %>&action=editc&cid=<% response.write cid %>&edit=ok' method=post>
<tr height=50 align=center>
<td height="70" class="td2" width="38%">分类名称：</td>
<td>
<input type=text name=c_name value='<% response.write rs(0) %>' size=34 maxlength=16></td>
</tr>
<tr><td colspan=2 height=50 align=center><input type=submit value='修改分类属性'></td></tr>
</form><%
end if
rs.close:set rs=nothing
%>
</table><%
end sub
'/********************************************************************
' GGweiEdit() 修改广告位信息
'********************************************************************/
sub GGweiEdit()
%>
<table border=1 width=450 cellspacing=0 cellpadding=2 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF><%
dim p_name,p_order,pid,cid,ccid,ncid,sqladd,Plei
sqladd=""
pid=trim(request.querystring("pid"))
if not(isnumeric(pid)) then pid=0
sql="select * from place where Pid="&pid
set rs=conn.execute(sql)
if rs.eof and rs.bof then
rs.close:set rs=nothing
response.redirect "?":exit sub
end if
cid=rs(4)
if trim(request.querystring("edit"))="ok" then
response.write "<tr><td height=100 align=center>"
ccid=trim(request.form("cid"))
p_name=replace(trim(request.form("p_name")),"'","")
p_ename = replace(trim(request.form("p_ename")),"'","")
if len(p_name)<2 or len(p_name)>16 or len(p_ename)<1 or len(p_ename)>30 then
response.write "<font class=red_2>广告位名称长度不可大于16或小于2！ <br>英文名长度不可大于30或小于1</font><br><br>"&go_back
else
Rs1.open "Select * From [place] where Pid<>"&pid&" and pename='"&p_ename&"' ",conn,3,3,1
if not rs1.eof then
response.write "<font class=red_2>英文名重复！</font><br><br>"&go_back
rs1.close
response.end
end if
rs1.close
Rs1.open "Select * From [place] where Pid="&pid,conn,3,3,1
if rs1(6)<>p_ename then
call PubDeleteFile("js/"&rs1(6)&".js")
rs1(6)=p_ename
Filename="js/"&p_ename&".js"
NeiRong=" document.write (""<"" + ""s"" + ""c"" + ""r"" + ""ipt"" + "" lan"" + ""guage"" + ""="" + ""ja"" + ""vasc"" + ""ript"" + "" sr"" + ""c"" + ""="" + """ + DqUrl + "/ad.asp?i="&pid&""" +""><"" + ""/s"" + ""cript"" + "">""); "
call PubWriteFile(Filename,NeiRong)
end if
rs1(1)=p_name:rs1(2)=cint(trim(request("Plei"))):rs1(4)=ccid:rs1.update
' :rs1(3)=""
'' 循环得到子节点编号列表
'' 循环得到符值列表
Dim ti,tes,sits:tes=rs(0):sits="0"
For ti=1 to 5
tes=tes&"/$/"&rs(ti)
sits=sits&"|"&ti
Next
if xmltype=1 then call PubEditXml(dataxml&"/place/"&rs(0)&".xml","Place",sits,tes) '为 placeid.xml 文件设置新内容
rs1.close
response.write "<font class=red_3>修改广告位成功！</font><br><br><a href='?'>点击返回</a>"
end if
response.write "</td></tr>"
else
cid=rs(4)
p_name=rs(1):Plei=rs(2):p_ename=rs(6):rs.close
%><form action='?nsort=<% response.write nsort %>&action=edits&pid=<% response.write pid %>&edit=ok' method=post>
<tr height=30>
<td height="40" width="38%" align="right" class=td2>所属分类：</td>
<td>
<%
Call GgwSelect(cid)
%> </td>
</tr>
<tr height=30>
<td height="40" width="38%" align="right" class=td2>广告位名称：</td>
<td><input type=text name=p_name size=35 value="<%=p_name%>"></td>
</tr>
<tr height=30>
<td height="40" width="38%" align="right" class=td2>英文名：</td>
<td> <input type=text name=p_ename size=18 value="<%=p_ename%>"> 修改后自动生成新JS</td>
</tr>
<tr height=30>
<td height="40" width="38%" align="right" class=td2>显示方式：</td>
<td> <%Call GgwXsfsClass(Plei)%> <a href="javascript:opw('ZonGG.asp?a=Help.asp','ZonGG',800,600)">[显示方式说明]</a></td>
</tr>
<tr><td colspan=2 height=40 class="td1">
<p align="center">
<font class=red>注：</font>长度须大于2小于16；如果修改了显示方式，样式自动更改为默认。</td></tr>
<tr><td colspan=2 height=50 align=center><input type=submit value='修改广告位属性'></td></tr>
</form>
<%
end if
%>
</table>
<%
end sub
'/********************************************************************
' GGclassNew() 新增广告分类信息
'********************************************************************/
sub GGclassNew()
%>
<table border=1 width=450 cellspacing=0 cellpadding=2 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF>
<%
dim c_name,names,i,s,n:s=0
if trim(request.querystring("add"))="ok" then
response.write "<tr><td height=200 align=center>"
names=Split(Trim(replace(trim(request.form("c_name")),"'","")),"$")
For i=0 To Ubound(names)
c_name=names(i)
if len(c_name)<2 or len(c_name)>16 then
s=s+1
else
Rs.open "Select cname From [class]",conn,3,3,1
rs.addnew:rs(0)=c_name:rs.update
rs.close
n=n&"<BR>"&c_name
end if
Next
response.write "共预新增广告分类 <font class=red>"&Ubound(names)+1&"</font> 个，其中 <font class=red>"&s&"</font> 个被过滤<BR><br>成功新增以下 <font class=red_3>"&Ubound(names)+1-s&"</font> 个:<BR>"&n&"<br><br>[<a href='?'>返回查看</a>] [<a href='?action=addc'>继续新增</a>]"
response.write "</td></tr>"
else
%>
<form action='?nsort=<% response.write nsort %>&action=addc&add=ok' method=post>
<tr>
<td height="70" align="right" width="38%" class=td2>分类名称：</td>
<td>
<p align="center"><input type=text name=c_name size=34></td>
</tr>
<tr height=40>
<td colspan="2" height="40" class=td1><font class=red>注：</font>一次性新增多个分类时，用“<font class=red>$</font>”作为名称分隔符
；系统会自动过滤长度小于2大于16的无效名称；系统不会检测名称是否重复，请尽量不要重复
</td>
</tr>
<tr><td colspan=2 height=50 align=center><input type=submit value='新增分类'></td></tr>
</form>
<%
end if
%>
</table>
<%
end sub
'/********************************************************************
' GGweiNew() 新增广告位信息
'********************************************************************/
sub GGweiNew()
%>
<table border=1 width=450 cellspacing=0 cellpadding=2 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF><%
dim p_name,p_order,cname,cid,ncid,pid
dim s:s=0
cid=trim(request("cid"))
if not(isnumeric(cid)) then cid=0
cid=int(cid)
if trim(request.querystring("add"))="ok" then
response.write "<tr><td height=200 align=center>"
p_name=replace(trim(request.form("p_name")),"'","")
names=Split(Trim(replace(trim(request.form("p_name")),"'","")),"$")
enames=Split(Trim(replace(trim(request.form("p_ename")),"'","")),"$")
For i=0 To Ubound(names)
p_name=names(i)
p_ename=enames(i)
if len(p_name)<2 or len(p_name)>16 then
s=s+1
else
Rs.open "Select * From [place] where Pename='"&p_ename&"' order by pid ",conn,3,3,1
if not rs.eof then
else
rs.addnew:rs(1)=p_name:rs(2)=cint(trim(request("Plei"))):rs(4)=cid:rs(3)="":rs(5)="":rs(6)=p_ename:rs.update
rs.movelast
pid=rs(0)
Filename="js/"&p_ename&".js"
NeiRong=" document.write (""<"" + ""s"" + ""c"" + ""r"" + ""ipt"" + "" lan"" + ""guage"" + ""="" + ""ja"" + ""vasc"" + ""ript"" + "" sr"" + ""c"" + ""="" + """ + DqUrl + "/ad.asp?i="&pid&""" +""><"" + ""/s"" + ""cript"" + "">""); "
call PubWriteFile(Filename,NeiRong)
if xmltype=1 then
call PubCopyFile(dataxml&"/place.xml",dataxml&"/place/"&rs(0)&".xml") '建立 placeid.xml 文件
'' 循环得到子节点编号列表
'' 循环得到符值列表
Dim ti,tes,sits:tes=rs(0):sits="0"
For ti=1 to 5
tes=tes&"/$/"&rs(ti)
sits=sits&"|"&ti
Next
call PubEditXml(dataxml&"/place/"&rs(0)&".xml","Place",sits,tes) '为 placeid.xml 文件设置内容
end if
end if
rs.close
n=n&"<BR>"&p_name
end if
Next
response.write "<br>共预新增广告位 <font class=red>"&Ubound(names)+1&"</font> 个，其中 <font class=red>"&s&"</font> 个被过滤<BR><br>成功新增以下 <font class=red_3>"&Ubound(names)+1-s&"</font> 个:<BR>"&n&"<br><br>[<a href='?'>返回查看</a>] [<a href='?action=adds&cid="&trim(request("cid"))&"'>继续新增</a>]<BR><BR>"
response.write "</td></tr>"
else
%><form action='?nsort=<% response.write nsort %>&action=adds&add=ok' method=post>
<tr height=30>
<td height="40" width="38%" class=td2 align="right">所属分类：</td>
<td>
<%
Call GgwSelect(cid)
%> </td>
</tr>
<tr>
<td height="40" width="38%" align="right" class=td2>广告位名称：</td>
<td><input type=text name=p_name size=35></td>
</tr>
<tr>
<td height="40" width="38%" align="right" class=td2>英文名：</td>
<td> <input type=text name=p_ename size=20> 生成JS文件名</td>
</tr>
<tr height=30>
<td height="40" width="38%" align="right" class=td2>显示方式：</td>
<td> <%Call GgwXsfsClass("1")%> <a href="javascript:opw('ZonGG.asp?a=Help.asp','ZonGG',800,600)">[显示方式说明]</a></td>
</tr>
<tr><td colspan=2 height=40 class="td1">
<font class=red>注：</font>一次性新增多个广告位时，用“ <font class=red>$</font>”作为名称分隔符；系统会自动过滤长度小于2大于16的无效名称；系统不会检测名称是否重复，请尽量不要重复
。名称与英文名要一一对应，且不能重复</td></tr>
<tr><td colspan=2 height=50 align=center><input type=submit value='新增广告位'></td></tr>
</form>
<%
end if
%>
</table>
<%
End sub
%>